home *** CD-ROM | disk | FTP | other *** search
/ Kyoko 8203 / Kyoko 8203.iso / mac / clip.dxr / 00027_ÉrÉfÉIëOå„.ls < prev    next >
Encoding:
Text File  |  2003-03-10  |  2.1 KB  |  79 lines
  1. global page, maxvideo, minvideo, videonumber
  2.  
  3. on mouseWithin me
  4.   mynumber = me.spriteNum
  5.   case mynumber of
  6.     44:
  7.       i = 28
  8.       repeat while i <= (28 + videonumber - 1)
  9.         set the locH of sprite i to the locH of sprite i + 3
  10.         if the locH of sprite i > (minvideo + ((i - 28) * 134)) then
  11.           set the locH of sprite i to minvideo + ((i - 28) * 134)
  12.         end if
  13.         i = 1 + i
  14.       end repeat
  15.     45:
  16.       i = 28
  17.       repeat while i <= (28 + videonumber - 1)
  18.         set the locH of sprite i to the locH of sprite i - 3
  19.         if the locH of sprite i < (maxvideo + ((i - 28) * 134)) then
  20.           set the locH of sprite i to maxvideo + ((i - 28) * 134)
  21.         end if
  22.         i = 1 + i
  23.       end repeat
  24.   end case
  25. end
  26.  
  27. on mouseUp me
  28.   mynumber = me.spriteNum
  29.   case mynumber of
  30.     44:
  31.       repeat while the locH of sprite 28 <= (minvideo - 2)
  32.         put the locH of sprite 28
  33.         i = 28
  34.         repeat while i <= (28 + videonumber - 1)
  35.           adjust = (minvideo + ((i - 28) * 134) - the locH of sprite i) / 4
  36.           if adjust = 0 then
  37.             adjust = 1
  38.           end if
  39.           set the locH of sprite i to the locH of sprite i + adjust
  40.           i = 1 + i
  41.         end repeat
  42.         updateStage()
  43.       end repeat
  44.       i = 28
  45.       repeat while i <= (28 + videonumber - 1)
  46.         set the locH of sprite i to minvideo + ((i - 28) * 134)
  47.         i = 1 + i
  48.       end repeat
  49.       updateStage()
  50.     45:
  51.       repeat while the locH of sprite 28 >= (maxvideo + 2)
  52.         i = 28
  53.         repeat while i <= (28 + videonumber - 1)
  54.           adjust = (maxvideo + ((i - 28) * 134) - the locH of sprite i) / 4
  55.           if adjust = 0 then
  56.             adjust = -1
  57.           end if
  58.           set the locH of sprite i to the locH of sprite i + adjust
  59.           i = 1 + i
  60.         end repeat
  61.         updateStage()
  62.       end repeat
  63.       i = 28
  64.       repeat while i <= (28 + videonumber - 1)
  65.         set the locH of sprite i to maxvideo + ((i - 28) * 134)
  66.         i = 1 + i
  67.       end repeat
  68.       updateStage()
  69.   end case
  70. end
  71.  
  72. on mouseEnter me
  73.   cursor([1, 2])
  74. end
  75.  
  76. on mouseLeave me
  77.   cursor(0)
  78. end
  79.